home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / InstallMaster 7.03 / Devfulldemo.exe / file0208.bin < prev    next >
Encoding:
Text File  |  1999-04-26  |  1.5 KB  |  61 lines

  1. Document Type: WSE
  2. item: Global
  3.   Version=6.0
  4.   Title=Instr
  5.   Flags=00000100
  6.   Split=1420
  7.   Languages=65 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  8.   Copy Default=1
  9.   Japanese Font Name=MS Gothic
  10.   Japanese Font Size=10
  11.   Start Gradient=0 0 255
  12.   End Gradient=0 0 0
  13.   Windows Flags=00000100000000000010110000011000
  14.   Message Font=MS Sans Serif
  15.   Font Size=8
  16.   Disk Filename=SETUP
  17.   Patch Flags=0000000000000001
  18.   Patch Threshold=85
  19.   Patch Memory=4000
  20.   FTP Cluster Size=20
  21. end
  22. item: Remark
  23.   Text=This Wise 6.0 sample script shows how the Expression parser command "Instr" works.
  24. end
  25. item: Remark
  26. end
  27. item: Prompt for Text
  28.   Window Title=Expression Parser - Instr test.
  29.   Prompt Title=Please enter an Alphanumeric value.
  30.   Variable=ALPHA1
  31. end
  32. item: Prompt for Text
  33.   Window Title=Expression Parser - Instr test.
  34.   Prompt Title=Enter a string that is contained in "%ALPHA1%".
  35.   Variable=ALPHA2
  36. end
  37. item: Remark
  38. end
  39. item: Remark
  40.   Text=       This piece of code is where the Instr command is exectuted, where the first variable is the
  41. end
  42. item: Remark
  43.   Text=            string to search for in the second variable.
  44. end
  45. item: If/While Statement
  46.   Value=instr(ALPHA1, ALPHA2)
  47.   Flags=00001101
  48. end
  49. item: Display Message
  50.   Title=Expression Parser - Instr Test 1.
  51.   Text="%ALPHA2%" is contained in "%ALPHA1%".
  52. end
  53. item: Else Statement
  54. end
  55. item: Display Message
  56.   Title=Expression Parser - Instr Test 2
  57.   Text="%ALPHA2%" is not  contained in "%ALPHA1%".
  58. end
  59. item: End Block
  60. end
  61.